#########################################################
#Figure 4: Wealth Increases Leave Support
#########################################################

boe <- read.dta13("./temp/fig4data.dta")
boe<- boe[2:3,]
ggplot(boe, aes(as.factor(var), coef)) + 
  geom_pointrange(aes(ymin=coef-1.96*stderr, ymax=coef + 1.96*stderr), shape=16, size=1.5, color="grey40") +
  geom_hline(yintercept = 0, color="red", lwd=1.2) + 
  theme_nice() + ylab("Effect on Leave Support") + xlab("Wealth Type") + 
  theme(axis.title = element_text(size=14),
        axis.text = element_text(size=12) ,
        panel.grid.major.y = element_blank(),
        panel.grid.major.x = element_line(linetype="solid")) + 
  scale_x_discrete(labels=c("Financial", "Property")) + 
  scale_y_continuous(breaks=c(-.1,0,0.5,0.1, 0.2), limits=c(-.1,.25)) + 
  coord_flip()  
ggsave("./figures/fig4.pdf")
rm(boe)
